/« 

s XnttsrphBiiie Corp„ SfID 2180 Disk Controler XENIX Driver 
•s Henry BurfjtHiSs March 15 y 1982 

s Modified from WDC 2BBB Controller by Jerry Dunietzy Msrcl-i 29:. 1982 

•s Version for only 1 drives- witl-i deiaucjt? i ncj code.. 

a Limited support for second driv'e? iHO tl'icjt we C8n to disk-to 

» diisk backup 

«/ 

« Mod i f i est i ons 



« mm 10 May 1982 JJD 

R a c o n f i <j u r a t i o n o f m u 1 1 i b t -i s m e mo r y » 
» M001 2(3 May 1982 JJD 

Modified so that ip can si'iare interrupt line with other 
^ device., 
s/ 

/« 

» Mod i f i c st i on H i story 



« XXX m/&&/@& 

W Commei'its 

# i nc I ude " ., « /h/parBm h" 
<1 i nc I ude " .. /I'l/ sy stm „ h " 
# include "../h/buf.h" 

# i nc lude " .. /h/c onf » h " 
15 i nc lude "... /h/d i r . h " 



# i nc lude " » /h/user h " 
^5 i nc. 1 ude " « « /h/dfUB . h " 



# i f def DEBUG 



i nt 


i p...,debu< 








Mend i f 










^define 


t>K...N 









#define 


NIP 


J. 


/« 


of drives supported 


#def i ne 


NIPSEC 


34 


/*• 


of sectors psar track 


#de-ri ne 


NlPTFi;K 


7 


/«■ 


}t of trscks per cylinder 


#def i ne 


HBPC 


n:cpsec*n:£PTRK 


/•K 


blocks / Cylinder «•/ 


?^de'f i ne 


NIPCYL 


589 


/•s 


cy I i nders w/ 


5^def i ne 


NIPCYLH 


MIPCYL/2 


/K 


Cylinders/2 •»/ 



s I'F'sisres -•• Sizes end locations of escln file structure 
■» 

^define l..0GCN"f2 3 lotj2 of cnt of lotjicsl devices per pl-iys 

#def ine UMITCNf 9 /» count of logical devices per pi'iysicel »/ 

struct size 
■C 

dBddr_.t nb locks.? 
int cyloff? 
> ip„.sizes£;UN3:TCNT:i «= 



■c 

/?f0%/ NE?.PCK60? &y Z'-^- cyl 0- 59:- root on F"UJI 

/•K-.1-K/ NBPCK30, 60. /* cyl 60-89/ swap on FUJI -sV 

/K2*;-/ ME?.F'Cffi(NlPCYL-90) 90x /« cyl 90-endy user + rest of disks/ 

/•s BUT USf£ ONLY HALF OF .tT «•/ 

/»>3»/ NBPC»60y N:CPCYLHf-0. /« second hslf -•• root 

/«4«/ NE?.PCs30, N3;PCYLH+60/ /« second hislf - swsp «/ 

/M5S/ NBPCK-<NXPCYLH-90> / NIPCYLI-l+90y /•» seconf h^slf - user »/ 

/•s6«/ NBPCx ^ NXPCYL-1. /•» lest cylinder <for boot) 

/■»7s/ NBPCsNitPCYLi. 0. /« cyl 0~end-/ all of FUJI 
>? 



struct ip..io|.<b 
•C 

uns i cjned ciisr 

NOTE- ««« TWISTE-t) BYTEiiS 



P. 


..St3t y 


/«• 


1 


Status Code «/ 




p 


comm 


/•>• 





Disk CommBnd »/ 




p 


\m \ t / 


/•» 


3 


UNIT/CYLHI SELETC «/ 




p 


error ? 


/« 


2 


Eiirror code 


»/ 


p 


..sec -1 


/« 


5 


STARTING SC^CTOR •»/ 




p 




/« 


4 


CYLINDER SELECT «/ 




p 




/•s 


7, 


BUFFER MEMORY ADDRESS •»/ 




p 


„ count v 


/» 


6 


SECTOR COUNT <l-"256) «/ 




p 


...Isb. 


/*• 


9 


BUFFER MEMORY ADDRESS -5^/ 




p 


_fnsby 


/«■ 


8 


BUFFER MEMORY ADDRESS »/ 




p 


_„c i 03ddr ? 




B 


CONTROLER I/O ADDRESS 




ip 


J'tesdy 


/w 


A 


Head Address 


«/ 


P 


i opx? 


/•jf 


D 


Next XOP Address EXTEND 


»•/ 


ip 


burst? 




C 


BUS BURST LENGTH < 1-256) 


M/ 



p ._n i op I X 
p__nioph? 
p_sse<3l / 
p . ssecjm 
}• •>; i p i opta.l ? 



/« F Next lOP Address Low »/ 
/w EH Next IOf=' Address Hicjh *>/ 
/•s 11 LSB of ADDRESS SEGMENT «/ 
3.0 MSB of ADDFJESS SEGMENT s/ 



struct buf 
struct buf 



i ptab? 
r i pbuf i 



#define lOADDR 0xf0 

/•» 1/0 REGISTER LOCATIONS *:•/ 



/«#def ine lOCOMM 
/sidefine lOSTAT 
/«#define lOXSEi ©xfi 
/Sv-9define itOMSB 0xf2 
/«#define lOLSB 0Kf3 



0xf0 
0xf0 



/*; controller address 

/¥: write commend recjister «/ 
/« read status recjister «/ 
/« write 3:0PB extended memory <4 bits) «/ 
/■s write XOl-'B I'li memory address bits •»/ 
write I'OPB low memory address bits 



/» NOTE ««« TWISTED ADDRESSES 

# define lOCOMM ©xfl /« write command recjister »/ 

#define lOSTAT 0xfl r^sc! status recjister s/ 

Mdefine lOXSB ©xf© write lOPB extended memory <4 bits) 

^define lOMSB 0xf3 /« write lOPB l-i i memory address bits s/ 

«^define lOLSB 0xf2 /« write lOPB lt?w memory address bits •»/ 



Mdefine XMB16BIT 



0X20 



/K 16b it bus bit on */ 



# define GO 0x01 , /« set to becjin a transfer «/ 

•^define CLRINT 0x02 /» clear interrupt «/ 

¥} define DONE 0x02 /•» done k/ 

^define BUSY 0x01 controller busy J^/ 



COMttANE) BYTE- (lOF'B BYTE 8) 



«def i ne 


READ 


0x81 




/•>? ra3oj command «/ 


fidef ine 


WFilTE 


0x82 




/*; writ-Is! command s/ 


#def i na 


SEEK 


0x8A 




/s seek commsnd 


Mdefine 


INITIALIZE 0x87 




drive reii-et «/ 


Mdef i ne 


RESET 


0x8 F" 




/^^ drive reset «/ 


« define 


RESTORE 


0x89 




Z'^- restor (seek 0) s/ 


^^d«af ine 


WFf'lf 


0x84 




/« wr i te format •>:•/ 


^define 


UERIFY 


0x83 




/•>• ver i f y f ormift «/ 






/•K STATUS 


BY FE 


.1 <;eofb byte .1) •»/ 


Sdef i ne 


ST OK 


0X80 




/« Opperstion Skiccessf ul 


#def i ne 


S FBUSY 


0x8.1 




Opperation in proigress »/ 


i^def i ne 


ST ERR 


0x82 




/s Error on Isst commend 


/•»#def i ne 


b ._cy I i n b_ 


,riat3 i d 





struct ip -C 

i nt ipbn? 



uns i (jned ipbc? 
uns i cjned loncj ipma? 
> ip ••= -C-J. 0/ m-i 



/« stsrtincj block number for remaHnder of 

/•» mult i "cy I i nder trsnsf er - - il i nd i cstes 

/'•^. thet we're not in iiie middle of 5ucl'» 
/<•• s transfer.. 

«/ 

/« remain infj byte count *>/ 

/•» physicBl address for remcjinincj trsnsfer 



i p st r B te cjy < bp ) 

rerjister struc t buf Kbp ? 

•C 

retfister struct buf wdp? 
r e <J i s t e r i n t unit? 
loi'uj s s? 



i f < ip„. iopbl ==--• NULL) initislisie^ i f necessi-fry *>/ 

i p i I'li 1 1 < ) ? 

if (bp"->b„..f l3c}s & B..PHYS) /«M000«/ 

maps! loc < bp ) J 
u n i t ffl i rior < bp ~ >b ...de v ) ? 
sz "•■ bp->b...i»count X 
S2: <&2:+Bf1ASK)»BSH3:FTS 
if <unit >^--= <NII='«L0GCNT2> li 

bp->b..blkno* sz > i p,_.ii> i siesfiun i t& < UNITCNT-' i ) 11 » nbloci'.s) •£ 

bp->b....f Ist^s B.„f£RI"<OR? 

i odon>='<bp ) ? 

return J 

> 

bp-><3V._f orw NULL? 

bp-">b.,.cyl i n ~ <bp-->b...blkno •«• i p„_s i s-iesL" un i t:i „ cyloff ) /NBPC J 

spl5< ) ? 

dp === & iptebJ 

/w if (dp->b...ectf ===•-" NULL) 
/a dp"->b„.3ctf "-• bp? 

/¥: dp"->b...sctl"">BV.„f orw •■=' bp? 

/«• dp->b...sctl bp? 



d i Ek sort < dp > bp ) ? 
if <dp-->b..oc:t i ve NULL) 
i pstsrt< ) J 

spl0< ) ? 



i p start < ) 

■<: 



recjister «5truct buf «bpJ 

r e cj i fi t a i" i n t u n i t J 

recj!i=-ter struct ip.. iopb ^^•iopbp? 

ret) i star uns i cjned sn J 

r e c) i ste-r un© i tjned eddr ? 

rerjister uns i (Jned count? 

i nt cnjtnydn? 

daddr t bn? 



if (<bp «= iptBb.b„.i?ctf ) :----■= i^ULL) 

r-eturn J 
i p t Bb . ta._ Bc t i ve++ J 
u n i t ••" m i n o < b p - > b d a v ) ? 
dn uni t»L0GCNT2? 
if ( i p u i pfon < 0) -C 

/» 

^ No remeinincj bytes from previous rnul t i --cyl i nder trsnsfer» 
•s/ 

bn bp-">b,.bl.l'.noJ 

sddr -~ <bp"">b..f "lecis B..MAP) ? /«M000»>/ 



< uns i j^ned > bp->b„.un„ta.._3ddr ? /«f'l000»/ 
DMA... ADDF? ( bp->b....un „ b„sddr ) J 
count '== bp "^b^bcQunt / 

}• el^iie -C 

/s 

s Handle rest of mult i -cyl i nder transfer « 
s/ 

bn ~ i p « i pbn? 
addr i p „ i pma 5 
count ~ i p „ i pbc J 

#ifdef DEBUG 

i f < i p...debut:p 

p r i ntf < " KfJS c ont i nu i ntj mu 1 1 i --c y 1 i nder transfer bn-"%d Bddr-"%'| 

#<anoJ i f 

> 

cn bn/<NlPTRKftNlPSEC) •*• ip.,sises£:uni t^.<UN3:TCNT--3.):i»cyloff ? 
sn === bn%<N:i:PTr<KsNIPSIH:C> ? 
tn sn/MIPSEC? 
sn === sn%N:f.PSECJ 

iopbp === ip„. iopbl? 
/•>: setup the iopb •»/ 

t op bp ••••> j p .„ st B t 
i opbp"-> i p error 
i opbp-> i p..un i t 
i opbp -> i p __cy I 
i opbp-"> i p...s-ec. 




=^ <1 « <dn 4)) I < <cn»8)«0x0f ) ? 
~ cn S 0K00ffJ 
-•• sn? 



/«• 

s Use &n as a temporary to hold the number of sectors to be 

•s transferred- (Note that we need a temporary because tl-ie 

number of sectors may be cjreater than 255? the larcjest possible 
^ unsifjned c:l'iar«) 

« 

« code:: def-ehds oh f-act that nume:'.er of- blocks F='Ei:F? cylinde-Fv- 

•» :CS LESS THAN LARGt-IST UNSIGMEi:) CEIAl-<u 

*: The first pert of the conditional is there to speed 

•K up the code for the most common case — transfer of 1 block. 

if (<sn "= count/5.12) <==•• 1 

II bn/<N3:F:'SE:CKNIf>TF\'K) =»=-^= (bn-fsn-l )/(NlF'SEECsNIF='TF?K) ) -C 

ip„ipbn "l? doesn^t cross cylinder boundary •»/ 

i op bp -•> i p ....c oun t sn ? 

> else -C 
#ifdef E>EBUG 

if < • P-Cie-'bucj) 

printf mult i -cyl i nder transfer bn"-=%d 3ddr™%X count™%d\i 

if <ip„.debufj <iil sn > 255) 

printf<"«»K transfer %d > 255 hlocksSn'S sn)J 



#end i f 



* Transfer crosses cylinder boundary » 

*: Correct so that it doesn'-t cross a boundary. 

« Save info so that we may resume transfer. 

•s/ 

iopbp-">ip„count=-^sn:== (i^lPSt-C « N3:F-'TF\'K)-<bn % (NIF^'SE^C •» NIPTF^FO)? 
ip.ipbn bn sn? /*> where next piece starts 



/« use unit as b te.mpov- Br ^/ 
un i t f5 3. 2 s i op bp "> i p ...c oun t ? 
ip,,ipbc count- - unit? 
ipuipms ™ sddr unit? 



/«• mWlC NUf'1BEI"< *>/ 

/*> remeinintj byte count 

/•K address of rsmsinincj xPer •»/ 



i opbp--> i p.,>:mb 
i opbp -> i p_lsb 
i Dpbp--> i p..msb 
i opbp -•> i p...l'ie3d 
i opbp"> i P....C i OEsddr 
i opbp -> i p_ burst 
i opbp-> i p„n i opx 
i opbp -> i p..„n i oph 
i opbp~ > i p„n i op I 
i opbp-> i p _.»secjm 
i opbp-> i p...,Bsecjl 



»■■ ( <eddr»3.6)&0xf ) I XMB3.6Bl-7y 

isddr S, 0>{f fy 

Bddr»8J 

tnJ 
== lOADDR? 

B? 

XMBi6B3:TJ 

r: 0J 



/« burst sise •>•>/ 



if <bp-">b„f l5(js & B....Rf£AI.->> 

i opbp-> i p.„comm == f^EAD? 

i op bp ~ > i p ...c omm WF? I TE ? 

iopbp (struct ip ... iopb s) Df1A....ADDi"<< i opbp > ? /mBm'A/ 
/ffi stsrt off the device «/ 

outbdOXSJB y ((unsicjned i nt ) < i opbp I XMBi6Bn ) J 

outb < X OmB ; ( < uns i cjned i nt ) i opbp > »8 ) ; 

outb ( lOLSB y < < uns i tjned i nt ) i opbp ) S0xf f ) J 

outbdOSTAT . GO)? 



dk..busy 1== J.«DK..N? 
dK...nurnbi:DK..N:3 ii 
u n i t b p > b b c q u rrl > > 6 ? 
cJk..wdsr.DK.„N:J t-™ unit)! 



i p i ntr ( ) 
< 

retjister struct buf «bpy 

1" e cj i s t IS I" s 1 1" u c t i p ... i o p b » i op b p } 

r e cf i & t er i n t c &r ? 



/» After cjettinc) interrupt make sure you heve a done bit «/ 
csr == inb<IOSTAr>? 



I f< ip.. iopbl NULL) < /« initslize the drive when you cjet the 

outb i locofifi , cli"<:i:nt > ? /mBma/ 

ipinitK)? /« power up-" i nterrupt ^'Z 

csr === inbCCOSTAT) ? /KFiaeis/ 



Bee) in MBC')! ..... ^-Z 
if <<csr & DONE) =•■==== 0) -C 
f i f def DEBUG 

i f ^ ip...debucj) -i 

p r i ntf < " i p i ntr ? DONE not «»et , c sr'«;£>{\n " ? c sr ) J 
if < i p_debucj > .1 ) 
debucj < 0) J 

3- 

hand i f 



return? 

3- 

„„»..EInd mei •»/ 



u t b < I OCOMM » CL Vi I NT ) ? /s c I eer i nt err up t s/ 

1 f < i p tab .. k\_3C t i ve "~ NULL ) 

return? 

ctsr ••== inbdOSTAT) J 
ioptap "■■ ip„. iophl? 

if ( iopbp"->ip..stst srBUSY) < 
#ifdef DB^BUCi 

p r i nt f < " i p i ntr « £>TE?.US Y ? c &r ==-%x\n " . c sr ) J 
if < i p__debuc|> 

debucj(0) ? 

#end i f 

return? 



dk„busy '•'(3.«DK....H) ; 

b p ™ i p 1 3 b „ b _ a c t f J 

i p tab o b,. BC t i ve NULL ? 

if < i opbp -•■> i p ...stst ! STOK ) < 

d e V e r r o r < b p ? i o p b p - > i p „. c o m m ? 

< iopbp ->ip..stat << 8> I i opbp •-•> i p„., error > ? 
p r i ntf ( " c Br == %x . %x\n " . c sr ? i nb ( I OST AT ) > ? 



#ifdef DEBUG 



pr i ntf< " ip i nir? unrecoversble error \n" ) ? 



if < i p._de!bucj) 



Mend i f 



bp->b....flBtjs i=- 



EJ... ERROR J 



i p u i pbn ■■" -i ? 



/•K don''t try to transfer more •»/ 



if < i op bp -> i p error ) 



if retquired retries ^/ 



deverror < bp ? i opbp -> i p ,_c omm ? 

< i opbp-> i p.„stst « &) 1 i opbp-"> i p_.error ) ; 
if <ip„ipbn >=■- 0) < 
i pstsrt ( ) f 
return? 

y 

i p t sb « b e r-r c n t =- J 

i ptab„b ..3ctf " bp •->av..f orw ? 

h p :>b re s i d ? 

i odone < bp > ? 

i p start ( ) ; 



i preBd(dev) 



•C 



phys i o < i p strategy ? &r i pbuf ? dev v Ei^READ ) ? 



> 



i pwr i te<dev) 
■C 



phys i o< i pstrBtecjy y fi.ripbufs' dev? E?._.WRITE> J 

> 



ipinilH) /•» cell me once to initBlisie the controller «/ 

■f. 

1'^ e cj i «. t e r «• t r u c t i p „, i o p b » i o p b p ? 
rHijjister unit? 
recji£>ter >!? 
recj i ster i J 

recjister unfjitjned int ©ddrJ /«M000k/ 
c i'lar »mu 1 1 i mem < > ? 



>! spl7<)J 

if ( ( i p.. i opbl == (struct ip...iopb «) mul t i mem<s i seof<s- i p„ i opbi ) ) ) ~~ NULL) 
p sn i c < " i p i opb .1 " > ? 

i o p bp ==• i p i o p b 3. ? 

eddr DMA„ ADDR( i opbp ) ? 

¥i i f def DEBU(3 

p r i n t r < " s « « i n i t i s I i z i n (j disk? " ) J 

#end i f 

outbdOCOMM.Q) ? 

/s RESEr^ RESrOR ^/ 



/« initeliii'e eech drive s/ 
for < un i t-~-B J un i t<N:i:i=' J un i t ) -C 

/» build iopb ■»/ 

i opbp--> i p._stat ™ 0? 



i opbp- 


> i p„.error 




i opbp-; 


> i p..un i t 


.1 « < t,ii'i i 


i opbp- 


> i p„cy I 




i opbp 


> i p_.sec 


-" NX PS EC? 


i opbp- 


> i p„,.coun t. 


n.i:psE'Cj 


i opbp-: 


> i p_>?mb 


xmb.:16b:i:tj 


i opbp-" 


> i p__lsb 


™ 0; 


i opbp- 


> i p_,.mrib 




i opbp- 


> i p . he'Bcl 


- 0? 


i opbp- 


> i p,..c i oacJdr 


=■• lOADDRJ 


i opbp-" 


>ip_..bur&i 


£5? 


i opbp- 


> i p j'i i opx 


XMB1.6BIT? 


i opbp-" 


> i p„n i oph 




i opbp- 


> i p jt i op I 


- 5 


i opbp- 


> i p _ssetjm 




i opbp™ 


> i p^aserjl 


==■• 0? 



/ » burst s- i Kfi •>:/ 



i op bp- .5- 1 p...comm 



FiESET? 



outb<IOXSI?. 
outb<3:0MSB 
outbCtOLSB 



, (sddr » 16) I XMBIABIT)? 
» sddr » 8) 5 
/ addr & 0xff ) ? 



outbdOCOMfUGO) J 



RUH THE lOPB «/ 



while <<i ==' iopbp->ip....st3t> ! === STOK M A i === STERR) 



i f < i \ STOK) -C 

printf<"ip INITIALIZE error XxXn" ? i opbp-> i p„.error ) J 



debucj<0) ? 



/« DO REST OF? «/ 

i opbp--> i p...coriun RESTORE? 
i cjpbp""> i p..&t»t ~ Q' 



out.b<:EOXSB 
outbdOMSB 
outbdOLSB 
outbdOCOMM.GO) 



X <3ddr » .1.6) I Xf'lB.16B:t r ) 
y eddr » 8 ) ? 
y 3ddr & Qxff)? 



/mmm/ 

/w RUN THE lOPB 



« i fdef DEBUG 



#'snd i f 



while <<i - iopbp->ip.„stf.s-b) !=« STOK i !« STERR) 

V 

i f < i STOK) -C 

pr i ntf < " i p RESTOR error %x\n" , i opbp-> i p„.error ) ? 

debug<0) ? 



> 

# i fdef DEBUG 

p r i nt f < " i n i t i s 1 i s: b t i on c. omp 1 et e\n " ) ? 

Mend i f 
> 



i p Formst < ) 



/w Formajt Unit 



int trsck ycyl i nder; 

i"e<j i ster struc t i p ... i oph •» i op bp J 

r e c| i & t e r i n t u n i t » 

re{jister ihji x? 

reel i ster i nt i J 

r e c{ i B t e r u n s i cj n e d i n t b d d r ? / « H &l S / 

i f < i p.... i opb.1 -"™ NULL > /» i n i tel i 2:e the dr i ve i f necessary »/ 
i p i n i 1 1 < ) ? 

X ™ £pl7<)? so no interrupts from ip «/ 

i op bp i p i op b 1 ? 

3ddr ■== Df'1A...ADDR< iopbp) J /mBBBv:/ 
unit ~- 0? 



i opbp™ 


> i p_ stst 


0? 


i opbp 


> i p_ error 




i opbp- 


> i p ...Kmb 


=== XMBJ.6B1TS 


i opbp" 


> i p . . . .l.sb 




i opbp™ 


> i p_ msb 




i opbp- 


> i p .c i osddr 


ioaddi-<:j 


i opbp- 


> i p. ..burst 




i opbp- 


> i p.j'i i opx 


xfiB.i6B:n-j 


i opbp- 


> i p.._n i opp) 




i opbp- 


> i p...i'i i op I 


0; 


i opbp™ 


> i p_esec|m 


0? 


i opbp- 


> i p.. a sec} I 





« i f def DE^BUe 

p r i nt-F < " f ormett i n cj d i sk " ) ? 

#end i f 



for(cyl inder~0Jc:yl inder < NIPCYLJcyl ind<l;;^•^•^•) < 
# i fdef DEBUG 

p r i nt f ( " %d " , c y 1 i nder ) 5 



#end i f 



for<tr3ck===0? trBC.k< Nlf="TF!;K? ) -C 
i opbp--> i p...sec 
i opbp-> i p„.c:ount 
i opbp ■"> i p...un i t 
i opbp-> i p...cy I 
i o p b p • - > i p I'l '?•! a d 
i opbp--> i p....stst 
i opbp-> i p..cofnw 



:== N1PSE-C5 

<l«(uni tt4) ) 1 ( (cyl inder»8)S0x0f ) J 
cylinder & 0x00ffJ 
■■■■■■ track? 



ouibdOXSB 
outb<IOMSt?. 
outb<.i:OLBB 
outb<;tOCOflH.(30> J 



, <Bddr » 3.6) I XMF.U6B1T>J /V:nmm/ 

■/ 3ddr » 8) J /mmm^/ 

, oddr & 0>;ff)3! /«in&)0&UV 

/■>;• RUN THE lOPB ■»/ 



whil'S <<i === iopbp-->ip..stst) ! ST OK && i ! STEFilR) 



iPdef DEBUG 



if < i !~ STOK) C 

pr i ntf ( "FORFIAT ERROR CyL===%x TRK-%>:\n" , cy I i nder > trsck ) i 
pr i ntf ( "\t i opbp"-%X read stst™%x\n" •/ i opbp v i S ©xf f > ? 
pr i ntf < "\tstBt™/f;x errcir:~%x\n" ^ i opbp-> i p„.stst» 
i optap-> i p ...error ) ? 

printfC StrBck «•• yiX^ ^cyl i nder===%X\n" . 

a t r a c k ? S c y I 'm d e r > ? 
debu<J<0) J 



•Mend i f 



coni i nue • 



i opEip-> i p.. .sec 
i o p b p •" > i p .„ c o u I'l t 
i opbp""> i p..un i t 
i optap -> i p.,.cy i. 
i opbp" > i p...heBd 
i opbp""> i p..st3t 
i cipbp-> i p...,comm 



=••== NIPS EC J 

~ < J. « < un i t-i-A ) ) 1 ( < t: y I i nd-sr»8 ) mii&f ) J 



outbCCOXSB 
outb<3:0RSE?. 
outbdOLSB 
DutbdOCOMruGO) J 



(sddr » .16) i XflBlABID ? 

Bddr » 8>? /m&Qm/ 

Bddr <t 0>{ff)? /WimBii/ 

/ft RUH 7 HE lOPB ft/ 



while ((i ■-■ iopfop->ip...stst> !~ STOK i ! STERR) 

V 

V 

if < i i=: STOK) < 

cont i nue? 



> 
> 

i f def DEBU{3 

pr i nif ( "\nftftft End of i pf ormBiXn" ) S 

?$end i f 

fH fdef DEBUG 

p r i ntf < " \nftftft ver i f y i n cj d i &k " ) ? 

5^) end i f 



for<cyl inder===0Jcyl inder < NIPCYLJcyl inder-*-*-) •€ 
i f daf DEBUG 

p r i nif < " %d " . c y 1 i nder ) J 



#end i f 



for<tr3ck~-0?track< NIPTRKS trBc:k-< + ) < 



i opbp-> i p.... sec 
i opbp"-> i p^count 
i opbp -> i p...un i t 
i op bp i p ....t. y 1 
iopbp->ip...he3d 
i ophp"-> i p..„stet 
i opbp--> i p,_.c omm 



0? 

N.i:psfi:c; 

<l«<unit-t-4) ) 1 ( <f.:yl ind>:-!r»{3>S0x0f > ? 

cyl inder & 0j{00f f ? 

track? 

0? 

VERIFY ; 



outbdOXSB 
outbCIOMSI?. 
outb<i"OLSE?. 
outb<IOCOMM.GO> J 



, <Bddr » 16) i XMBi6BIT) ? /wM000s/ 

, addr » 8>? /mB&m/ 

. sddr & 0;!ff)? /sf-IQQOK/ 

/•s RUN THE XOPB 



t^ifdef DEBUG 



while ((i === iopbp->ip...stst> !== ST OK M- i ! ST ERR) 

V 

/ 

if < i !«: STOK) •{ 

pr i ntf ( "MERIFY ERROR CYL=='/£>t TRK==%x\n" . cyl i nder , trsck ) ? 
printf ("\biopbp-"ZX r.asd fitst=-"%>!\n" ■/ iopbp. i S 0xff)5 
pr i ntf ( "\i&t.at~%x .srror===%>{\n" ? i opbp"> i p„Btcrt . 
i opbp •> i p..„error ) ? 

debuc}<0) ? 



#iand i f 



# t f def DEBUG 

E.p I X < X ) J 



End of i pver i f y\ri" ) 



